home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zi.d64 / func.getran < prev    next >
Text File  |  2007-03-01  |  928b  |  33 lines
  1. 1140 ╞╒╬├ GETRAN$(F#,REC,POS,NUM) ├╠╧╙┼─
  2. 1150   //
  3. 1160   // F#  - FILE# IN ╧╨┼╬ STATEMENT
  4. 1170   // REC - RECORD NUMBER
  5. 1180   // POS - POSITION IN RECORD
  6. 1190   // NUM - NUMBER OF CHARS TO READ
  7. 1200   
  8. 1210   ─╔═ COMMAND$ ╧╞ 5
  9. 1220   LOREC:=REC ═╧─ 256
  10. 1230   HIREC:=REC ─╔╓ 256
  11. 1240   FIL#:=╨┼┼╦(152)
  12. 1250   //           NUMBER OF OPEN FILES
  13. 1260   INDEX:=1; FND:=╞┴╠╙┼
  14. 1270   ╫╚╔╠┼ ╬╧╘ FND ┴╬─ INDEX<=FIL# ─╧
  15. 1280     //           LOOK FOR FILE ENTRY
  16. 1290     ╔╞ ╨┼┼╦(600+INDEX)=F# ╘╚┼╬
  17. 1300       FND:=╘╥╒┼
  18. 1310     ┼╠╙┼ 
  19. 1320       INDEX:+1
  20. 1330     ┼╬─╔╞ 
  21. 1340   ┼╬─╫╚╔╠┼ 
  22. 1350   ╔╞ ╬╧╘ FND ╘╚┼╬
  23. 1360     ╥┼╨╧╥╘ 203 //      FILE NOT OPEN
  24. 1370   ┼╬─╔╞ 
  25. 1380   CHANNEL:=╨┼┼╦(620+INDEX)
  26. 1390   //   SEC ADDRESS FOR ╨┴╙╙ COMMAND
  27. 1400   COMMAND$:="P"+├╚╥$(CHANNEL-$60)
  28. 1410   COMMAND$:+├╚╥$(LOREC)+├╚╥$(HIREC)
  29. 1420   COMMAND$:+├╚╥$(POS)
  30. 1430   ╨┴╙╙ COMMAND$ //      SET POINTER
  31. 1440   ╥┼╘╒╥╬ ╟┼╘$(F#,NUM)
  32. 1450 ┼╬─╞╒╬├ GETRAN$
  33.